home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_11_1986_Transactor_Publishing.d64 / home control 2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  196b  |  14 lines
  1. 10 print "[147]"
  2. 20 for i=0 to 7
  3. 30 gt=0
  4. 40 poke 16384,i
  5. 50 for j=0 to 19
  6. 60 poke 24576,0
  7. 70 gt=gt+peek(40960)
  8. 80 next j
  9. 90 result=127-(gt/20)
  10. 100 print int((int(result*100))/100)
  11. 110 next i
  12. 120 for i=0 to 999:next i
  13. 130 goto 10
  14.